
svyset psu [pweight=Weight1]

*CREATING VARIABLES

********************
*Dependent Variables 

*DV1: EuroMaidanAllBN 0=all others 1=Yes
recode V35_1(1 =0  "have not participated ")(2 3 =1  "reported having participated once or more than once ") (7 8 =. ), gen(EuroMaidanParticKyiv)
recode V35_3(1 =0  "have not participated ")(2 3 =1  "reported having participated once or more than once ")(7 8=.), gen(EuroMaidanParticNotKyiv)
gen EuroMaidanAllBN= (EuroMaidanParticNotKyiv==1) | (EuroMaidanParticKyiv==1)

*DV2: RussWillInvadeBN 0= all others 1=Strongly agree & somewhat agree*
recode V57_11 (2=1) (3=0) (4=0) (7=0) (8=0)(.=0), gen(RussWillInvadeBN) 
recode V57_11 (1=0) (2=0) (3=1) (4=1) (7=0) (8=0)(.=0), gen(RussWontInvadeBN) 

*DV3: JoinNATOBN 0=all others 1=Yes
recode V49_4 (1 2=1  "strongly agree and more or less agree ") (3 4 7 8  =0  "more or less disagree, strongly disagree and HTS and RFTA"), gen (JoinNATOBN)

*DV4: RussStateLangBN 0=all others 1=Yes
recode V57_4 (1 2=1  "Strongly agree & somewhat agree ") ( 3 4 7 8 . = 0  "somewhat disagree & strongly disagree "), gen(RussStateLangBN)

*DV For Tobit Analysis RUS-UKRAINIAN BOUNDARY THICKNESS: UkrRusDifferentScale = 11-point scale with 0 meaning there is no difference between Russians and Ukrainians and 10 meaning they are completely different. Responses of hard to say (3.8%), refusal (0.4%), missing (0.4%), and ìsome ukrainians/russians are very similar while others are very differentî (1.4%) are coded as missing values.*
recode V71 (0=10) (1=9) (2=8) (3=7) (4=6) (5=5) (6=4) (7=3) (8=2) (9=1) (10=0) (95=.) (96=.) (97=.) (98=.), gen(UkrRusDifferentScale)

******************
*Independent Variables (Identity)

*Nationality IV
*If you had to register only one nationality, which would you choose?
*NationUkrBN 0=all others 1=Yes
recode V64 (1 3 7 8 =0 "Russian and Other") (2=1 "Ukrainian"), gen (NationUkrBN)

*Some people belong to only one nationality, others consider themselves as belonging to several nationalities. Please tell me, at least approximately, to what extent do you feel you belong to the following groups? 
*UkrNatScale 1= Not at all Ukrainian 2=Partly but less than half 3=Half 4=Mostly 
recode V63_2 (1=5 "Entirely Ukrainian") (2=5 "Mostly") (3=4 "Half") (4=3 "Partly but less than half") (5=1 "Not at all Ukrainian") ( 7 8=.), gen(UkrNatScale) 

*Language 
*Language of questionaire
*LangQuestUkrW1 0=all others 1=Yes
recode Va4(1=1 "Ukrainian") (2=0 "Russian"), gen(LangQuestUkrW1)

*Language Observed by the intervier
*LangIntObsUkr 0=all others 1=Yes
recode Va5 (1=1 "Ukrainian") (2 3 4 5 6 = 0 "Mixed and Russian"), gen (LangIntObsUkr)

*Language used in private life
*LangPrvLfUkr 0=all others 1=Yes
recode V66_1 (1=1  "Ukrainian ")(2 3 6 =0 "Russian, Other, Both Ukrainian and Russian")(7 8=.), gen(LangPrvLfUkr)

*Language used at work
*LangWorkUkr 0=all others 1=Yes
recode V66_2 (1=1  "Ukrainian ")(2 3 6 =0 "Russian, Other, Both Ukrainian and Russian")(7 8=.), gen(LangWorkUkr)

*Native laguage/mother tongue 
*LangNatvUkrBN 0=all others 1=Yes
recode V66_3 (1=1  "Ukrainian ")(2 3 6 7 8=0 "Russian, Other, Both Ukrainian and Russian"), gen(LangNatvUkrBN)

******************
*Control Variables 

*Macroregion 
*East
*KiisEastW1 0=all others 1=Yes
recode Va13  ( 5 9 11 14 18 20 23 25 2 3 4 8 12 17 19 24 26 6 10 22 15 16  54 52 99 =0  "All other regions") ( 13 21 7 =1  "East"), gen(KiisEastW1)

*South
*KiisSouthW1 0=all others 1=Yes
recode Va13  ( 5 9 11 14 18 20 23 25 13 21 7 2 3 4 8 12 17 19 24 26 54 52 99 =0  "All other regions") (6 10 22 15 16  =1  "South "), gen(KiisSouthW1)

*Center
*KiisCenterW1 0=all others 1=Yes
recode Va13  (2 3 4 8 12 17 19 24 26 = 1  "Center ") (6 10 22 15 16  5 9 11 14 18 20 23 25 13 21 7 54 52 99 =0  "All other regions "), gen(KiisCenterW1)

*West 
recode Va13  (5 9 11 14 18 20 23 25 =1  "West ")(2 3 4 8 12 17 19 24 26  6 10 22 15 16 13 21 7 54 52 99 =0  "other regions"), gen(KiisWestW1)
tab KiisWestW1

*Age in Years
tab Vage_years

*Female
recode V58 (2=1 "Woman") (1=0 "Man"), gen(WomanW1)

*Urban Locality 
recode Va14(1=0 "rural") (2 3 4 5 6 7= 1 "urban"), gen(UrbanW1)

*Education
recode V61  (1 2= 1 "None or Primary Education") ( 3=2 "Incomplete Secondary Eduction")( 4=3 "Secondary Education") (5=4 "Specialized Secondary Eduction") ( 6=5 "Incomplete Tertiary Eduction")(7 8=6 "Tertiary or Scholarly Education")(97 98=.), gen(Educ6)

*Family Faninacial Situation 
recode V77 (1=1 "Not enough money") (2=2 "Enough money for the most necessary things") (3=3 "Have enough money for daily expenses") (4=4 "Generally have enough money") (5=5 "Purchase of expensive good is not a problem") (6=6 "The purchase of a car i snot especially difficult") (7=7 "At present time not difficult to travel etc.") (97 98=.), gen (FamFinanSit)

*Transition Winner
recode V80(1 2 =1 "won and mostly won") (6 3 4 7 8 =0 "won some lost some, lost and mostly lost and H/S and RF") , gen(TransitionWinnersBN)


******************
*Substituting means for missings for non-binary IVs*
qui: svy: mean (Educ6 )
qui: replace Educ6 =_b[Educ6] if Educ6==.
qui: svy: mean (FamFinanSit)
qui: replace FamFinanSit=_b[FamFinanSit ] if FamFinanSit==.
qui: svy: mean (UkrNatScale)
qui: replace UkrNatScale=_b[UkrNatScale] if UkrNatScale==.


******************
*Substituting 0 for missings for Binary IVs*
replace NationUkrBN=0 if NationUkrBN~=1
replace LangQuestUkrW1=0 if LangQuestUkrW1~=1
replace LangIntObsUkr=0 if LangIntObsUkr~=1 
replace LangPrvLfUkr=0 if LangPrvLfUkr~=1
replace LangWorkUkr=0 if LangWorkUkr~=1 
replace LangNatvUkrBN=0 if LangNatvUkrBN~=1 
replace KiisWestW1=0 if KiisWestW1~=1 
replace KiisEastW1=0 if KiisEastW1~=1 
replace KiisSouthW1=0 if KiisSouthW1~=1 
replace KiisCenterW1=0 if KiisCenterW1~=1 
replace UrbanW1=0 if UrbanW1~=1 
replace WomanW1=0 if WomanW1~=1 
replace TransitionWinnersBN=0 if TransitionWinnersBN~=1 


******************
*Standardizing all IVs to 0-1 that are not already. The suffix u on the var name stands for unit.*
qui: summarize Vage_years, meanonly
qui: gen Vage_yearsu=(Vage_years-r(min))/(r(max)-r(min))
qui: summarize Educ6, meanonly
qui: gen Educ6u=(Educ6-r(min))/(r(max)-r(min))
qui: summarize FamFinanSit, meanonly
qui: gen FamFinanSitu=(FamFinanSit-r(min))/(r(max)-r(min))
qui: summarize UkrNatScale, meanonly
qui: gen UkrNatScaleu=(UkrNatScale-r(min))/(r(max)-r(min))

*Creating labels for variables of interest.*
la var UrbanW1 "Lives in Urban Locality"

la var Vage_years "Age"

la var Vage_yearsu "Age"

la var Educ6 "Education Six Levels"

la var Educ6u "Education Six Levels"

la var FamFinanSit "Family Financial Situation"
 
la var FamFinanSitu "Family Financial Situation"

la var WomanW1 "Female"

la var EuroMaidanAllBN "EM Protest Participant"

la var JoinNATOBN "For Joining NATO"

la var RussStateLangBN "Russian Second State Language "

la var RussWillInvadeBN "Russia Likely to Invade "

la var RussWontInvadeBN "Russia Unlikely to Invade "

la var TransitionWinnersBN "Transition Winner"

la var KiisEastW1 "Resides in East"

la var KiisSouthW1 "Resides in South"

la var KiisCenterW1 "Resides in Center"

la var KiisWestW1 "Resides in West"

la var NationUkrBN "Nation Forced Choice Ukrainian" 

la var UkrNatScale "Nationality Feels More Ukrainian"

la var UkrNatScaleu "Nationality Feels More Ukrainian"

la var LangQuestUkrW1 "Opted For Ukrainian Survey"

la var LangIntObsUkr "Language Observed by Interviewer Ukrainian"

la var LangPrvLfUkr "Language in Private Life Ukrainian"

la var LangWorkUkr "Language at Work Ukrainian"

la var LangNatvUkrBN "Native Language Ukrainian"


******************
*Correlations of ethnicity variables

pwcorr LangQuestUkrW1 LangIntObsUkr LangPrvLfUkr LangWorkUkr LangNatvUkrBN UkrNatScale NationUkrBN, sig star(.05)

estpost corr LangQuestUkrW1 LangIntObsUkr LangPrvLfUkr LangWorkUkr LangNatvUkrBN NationUkrBN UkrNatScale, matrix quietly

esttab using "UKIDtabCorrelations20171224.rtf", replace notype unstack compress noobs nogaps title("Table A1. Correlations among Ukrainian Ethnicity Variables")


******************
*RELATIONSHIP BETWEEN ETHNIC TRAITS AND RUS-UKRAINIAN BOUNDARY THICKNESS*

*IVs = LangQuestUkrW1, LangPrvLfUkr, LangNatvUkrBN, NationUkrBN

svy: tobit UkrRusDifferentScale LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu, ll(0) ul(10)

margins, dydx(*) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-3 "-3" -2 "2" -1 "1" 0 "0" 1 "1" 2 "2" 3 "3", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy chosen" 2 "Lang private life" 3 "Ethnolinguistic ID" 4 "National ID" 5 "Female" 6 "Age" 7 "Education" 8 "Urban" 9 "East" 10 "South" 11 "Center" 12 "Transition winner" 13 "Family better off",angle(45) labsize(medsmall)) recast(scatter) title({bf}Figure 1. Full effects of factors on 11-point scale of perceived, size(medsmall) color(black) span) subtitle({bf}ethnic boundary thickness between Ukrainians and Russians, size(medsmall) span) xtitle("") ytitle("Points on 11-point scale") xscale(range(.75 13.25)) graphr(color(white)) saving(UKIDfigrusukrdiff_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)

esttab using UKIDtabrusukrdiff_20171224.rtf, replace compress b(%9.2f) star(* 0.05 ** 0.01) ci wide varwidth(22) coeflabel(WomanW1 "Female" Vage_yearsu "Age" Educ6u "Education" UrbanW1 "Urban Locality" KiisEastW1 "East" KiisSouthW1 "South" KiisCenterW1 "Center" TransitionWinnersBN "Transition Winner" FamFinanSitu "Family Financial Situation" LangQuestUkrW1 "Survey in Ukrainian" LangIntObsUkr "Language Observed by Interviewer Ukrainian"  LangPrvLfUkr "Language in Private Life Ukrainian" LangWorkUkr "Language at Work Ukrainian" LangNatvUkrBN "Native Language Ukrainian" UkrNatScaleu "Ukrainian Nationality Scale" NationUkrBN "Nation Forced Choice Ukrainian") nonumbers mtitles("") title("Table A2. Full effects of factors on 11-point scale of perceived ethnic boundary thickness between Ukrainians and Russians") addnote("Note: Calculated using tobit model.") 

eststo clear


******************
*EFFECT OF EACH ETHNICITY VARIABLE IF IT IS THE ONLY ETHNICITY VARIABLE IN THE EQUATION. COMPLETE TABLES FOR EACH DV AND ONE BIG FIGURE FOR RESULTS OF NATIONALITY VARIABLES ONLY FOR ALL DVíS*

*DV1 Russian as state language*

svy: logit RussStateLangBN LangQuestUkrW1 WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangQuestUkrW1) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title({bf}Backing Russ state lang, size(large) color(black) span) subtitle(Ukrainian survey chosen, size(large) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfiguksvychosenrustatelang_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit RussStateLangBN LangIntObsUkr WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangIntObsUkr) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian survey obs, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfiguksvyobsrustatelang_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit RussStateLangBN LangPrvLfUkr WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangPrvLfUkr) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian in private life, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfigukprvlfrustatelang_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit RussStateLangBN LangWorkUkr WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangWorkUkr) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian at work, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfigukworkrustatelang_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)



svy: logit RussStateLangBN LangNatvUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangNatvUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian native lang, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfiguknativerustatelang_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit RussStateLangBN UkrNatScaleu WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(UkrNatScale) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainianness scale, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfigukscalerustatelang_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit RussStateLangBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(NationUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian nationality, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfiguknatsrustatelang_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


esttab using UKIDtabidonrustatelang_20171224.rtf, replace compress b(%9.2f) star(* 0.05 ** 0.01) ci wide varwidth(22) coeflabel(WomanW1 "Female" Vage_yearsu "Age" Educ6u "Education" UrbanW1 "Urban Locality" KiisEastW1 "East" KiisSouthW1 "South" KiisCenterW1 "Center" TransitionWinnersBN "Transition Winner" FamFinanSitu "Family Financial Situation" LangQuestUkrW1 "Survey in Ukrainian" LangIntObsUkr "Language Observed by Interviewer Ukrainian"  LangPrvLfUkr "Language in Private Life Ukrainian" LangWorkUkr "Language at Work Ukrainian" LangNatvUkrBN "Native Language Ukrainian" UkrNatScaleu "Ukrainian Nationality Scale" NationUkrBN "Nation Forced Choice Ukrainian") nonumbers mtitles("") title("Table A3. Full effects of ethnicity on probability of supporting Russian as state language") addnote("Note: Calculated using logit model.") 

eststo clear

*DV2 NATO*

svy: logit JoinNATOBN LangQuestUkrW1 WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangQuestUkrW1) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title({bf}Backing NATO, size(large) color(black) span) subtitle(Ukrainian survey chosen, size(large) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfiguksvychosennato_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit JoinNATOBN LangIntObsUkr WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangIntObsUkr) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian survey obs, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfiguksvyobsnato_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit JoinNATOBN LangPrvLfUkr WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangPrvLfUkr) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian in private life, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfigukprvlfnato_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit JoinNATOBN LangWorkUkr WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangWorkUkr) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian at work, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfigukworknato_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)



svy: logit JoinNATOBN LangNatvUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangNatvUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian native lang, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfiguknativenato_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit JoinNATOBN UkrNatScaleu WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(UkrNatScale) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainianness scale, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfigukscalenato_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit JoinNATOBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(NationUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian nationality, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfiguknatsnato_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


esttab using UKIDtabidonnato_20171224.rtf, replace compress b(%9.2f) star(* 0.05 ** 0.01) ci wide varwidth(22) coeflabel(WomanW1 "Female" Vage_yearsu "Age" Educ6u "Education" UrbanW1 "Urban Locality" KiisEastW1 "East" KiisSouthW1 "South" KiisCenterW1 "Center" TransitionWinnersBN "Transition Winner" FamFinanSitu "Family Financial Situation" LangQuestUkrW1 "Survey in Ukrainian" LangIntObsUkr "Language Observed by Interviewer Ukrainian"  LangPrvLfUkr "Language in Private Life Ukrainian" LangWorkUkr "Language at Work Ukrainian" LangNatvUkrBN "Native Language Ukrainian" UkrNatScaleu "Ukrainian Nationality Scale" NationUkrBN "Nation Forced Choice Ukrainian") nonumbers mtitles("") title("Table A5. Full effects of ethnicity on probability of supporting joining NATO") addnote("Note: Calculated using logit model.") 

eststo clear



*DV3 Russia Will Invade*

svy: logit RussWillInvadeBN LangQuestUkrW1 WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangQuestUkrW1) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title({bf}Expecting RF invasion, size(large) color(black) span) subtitle(Ukrainian survey chosen, size(large) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfiguksvychosenrusinvade_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit RussWillInvadeBN LangIntObsUkr WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangIntObsUkr) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian survey obs, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfiguksvyobsrusinvade_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit RussWillInvadeBN LangPrvLfUkr WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangPrvLfUkr) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian in private life, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfigukprvlfrusinvade_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit RussWillInvadeBN LangWorkUkr WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangWorkUkr) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian at work, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfigukworkrusinvade_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)



svy: logit RussWillInvadeBN LangNatvUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangNatvUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian native lang, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfiguknativerusinvade_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit RussWillInvadeBN UkrNatScaleu WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(UkrNatScale) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainianness scale, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfigukscalerusinvade_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit RussWillInvadeBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(NationUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian nationality, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfiguknatsrusinvade_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


esttab using UKIDtabidonrusinvade_20171224.rtf, replace compress b(%9.2f) star(* 0.05 ** 0.01) ci wide varwidth(22) coeflabel(WomanW1 "Female" Vage_yearsu "Age" Educ6u "Education" UrbanW1 "Urban Locality" KiisEastW1 "East" KiisSouthW1 "South" KiisCenterW1 "Center" TransitionWinnersBN "Transition Winner" FamFinanSitu "Family Financial Situation" LangQuestUkrW1 "Survey in Ukrainian" LangIntObsUkr "Language Observed by Interviewer Ukrainian"  LangPrvLfUkr "Language in Private Life Ukrainian" LangWorkUkr "Language at Work Ukrainian" LangNatvUkrBN "Native Language Ukrainian" UkrNatScaleu "Ukrainian Nationality Scale" NationUkrBN "Nation Forced Choice Ukrainian") nonumbers mtitles("") title("Table A4. Full effects of ethnicity on probability of expecting Russia to invade") addnote("Note: Calculated using logit model.") 

eststo clear


*DV4 Euromaidan*

svy: logit EuroMaidanAllBN LangQuestUkrW1 WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangQuestUkrW1) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title({bf}Joining EuroMaidan, size(large) color(black) span) subtitle(Ukrainian survey chosen, size(large) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfiguksvychosenmaidan_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit EuroMaidanAllBN LangIntObsUkr WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangIntObsUkr) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian survey obs, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfiguksvyobsmaidan_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit EuroMaidanAllBN LangPrvLfUkr WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangPrvLfUkr) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian in private life, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfigukprvlfmaidan_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit EuroMaidanAllBN LangWorkUkr WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangWorkUkr) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian at work, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfigukworkmaidan_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)



svy: logit EuroMaidanAllBN LangNatvUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangNatvUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian native lang, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfiguknativemaidan_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit EuroMaidanAllBN UkrNatScaleu WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(UkrNatScale) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainianness scale, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfigukscalemaidan_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


svy: logit EuroMaidanAllBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(NationUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%",angle(horizontal) labsize(medlarge))  xlabel (1 "") recast(scatter) title(Ukrainian nationality, size(large) color(black) span) xtitle("") ytitle("") xscale(range(.75 1.25)) graphr(color(white)) saving(UKIDfiguknatsmaidan_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


esttab using UKIDtabidonmaidan_20171224.rtf, replace compress b(%9.2f) star(* 0.05 ** 0.01) ci wide varwidth(22) coeflabel(WomanW1 "Female" Vage_yearsu "Age" Educ6u "Education" UrbanW1 "Urban Locality" KiisEastW1 "East" KiisSouthW1 "South" KiisCenterW1 "Center" TransitionWinnersBN "Transition Winner" FamFinanSitu "Family Financial Situation" LangQuestUkrW1 "Survey in Ukrainian" LangIntObsUkr "Language Observed by Interviewer Ukrainian"  LangPrvLfUkr "Language in Private Life Ukrainian" LangWorkUkr "Language at Work Ukrainian" LangNatvUkrBN "Native Language Ukrainian" UkrNatScaleu "Ukrainian Nationality Scale" NationUkrBN "Nation Forced Choice Ukrainian") nonumbers mtitles("") title("Table A6. Full effects of ethnicity on probability of participating in EuroMaidan") addnote("Note: Calculated using logit model.") 

eststo clear


gr combine UKIDfiguksvychosenrustatelang_20171224.gph UKIDfiguksvychosennato_20171224.gph UKIDfiguksvychosenrusinvade_20171224.gph UKIDfiguksvychosenmaidan_20171224.gph UKIDfiguksvyobsrustatelang_20171224.gph  UKIDfiguksvyobsnato_20171224.gph UKIDfiguksvyobsrusinvade_20171224.gph UKIDfiguksvyobsmaidan_20171224.gph UKIDfigukprvlfrustatelang_20171224.gph  UKIDfigukprvlfnato_20171224.gph UKIDfigukprvlfrusinvade_20171224.gph UKIDfigukprvlfmaidan_20171224.gph UKIDfigukworkrustatelang_20171224.gph UKIDfigukworknato_20171224.gph UKIDfigukworkrusinvade_20171224.gph UKIDfigukworkmaidan_20171224.gph UKIDfiguknativerustatelang_20171224.gph UKIDfiguknativenato_20171224.gph UKIDfiguknativerusinvade_20171224.gph UKIDfiguknativemaidan_20171224.gph UKIDfigukscalerustatelang_20171224.gph UKIDfigukscalenato_20171224.gph UKIDfigukscalerusinvade_20171224.gph UKIDfigukscalemaidan_20171224.gph UKIDfiguknatsrustatelang_20171224.gph UKIDfiguknatsnato_20171224.gph UKIDfiguknatsrusinvade_20171224.gph UKIDfiguknatsmaidan_20171224.gph, col(4) iscale(.3) xsize(6.5) ysize(9) title("Figure 2. Full effects of ethnicity on probability (%) of...", size(medsmall)) graphr(color(white)) saving(UKIDfig4x7_20171224, replace)


******************
*CORE 4-IV REGRESSION: WITH 1 COMFORT LANGUAGE, 1 COMMUNITY LANGUAGE, 1 ETHNOLINGUISTIC, AND 1 NATIONALITY VARIABLE*

*IVs = LangQuestUkrW1, LangPrvLfUkr, LangNatvUkrBN, NationUkrBN

*DV1: RussStateLangBN

svy: logit RussStateLangBN LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN NationUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy chosen" 2 "Lang private life" 3 "Ethnoling" 4 "Nationality",angle(45) labsize(medsmall)) recast(scatter) title({bf}Backing Russ as state language, size(medsmall) color(black) span) xtitle("") ytitle("") xscale(range(.75 4.25)) graphr(color(white)) saving(UKIDfiguk4idcorerustatelang_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)

*DV2: JoinNATOBN

svy: logit JoinNATOBN LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN NationUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy chosen" 2 "Lang private life" 3 "Ethnoling" 4 "Nationality",angle(45) labsize(medsmall)) recast(scatter) title({bf}Backing NATO, size(medsmall) color(black) span) xtitle("") ytitle("") xscale(range(.75 4.25)) graphr(color(white)) saving(UKIDfiguk4idcorenato_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


*DV3: RussWillInvadeBN

svy: logit RussWillInvadeBN LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN NationUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy chosen" 2 "Lang private life" 3 "Ethnoling" 4 "Nationality",angle(45) labsize(medsmall)) recast(scatter) title({bf}Expecting Russian invasion, size(medsmall) color(black) span) xtitle("") ytitle("") xscale(range(.75 4.25)) graphr(color(white)) saving(UKIDfiguk4idcorerusinvade_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)



*DV4: EuroMaidanAllBN

svy: logit EuroMaidanAllBN LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN NationUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy chosen" 2 "Lang private life" 3 "Ethnoling" 4 "Nationality",angle(45) labsize(medsmall)) recast(scatter) title({bf}Joining EuroMaidan, size(medsmall) color(black) span) xtitle("") ytitle("") xscale(range(.75 4.25)) graphr(color(white)) saving(UKIDfiguk4idcoremaidan_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)

esttab using UKIDtab4idcore_20171224.rtf, replace compress b(%9.2f) star(* 0.05 ** 0.01) ci wide varwidth(22) coeflabel(WomanW1 "Female" Vage_yearsu "Age" Educ6u "Education" UrbanW1 "Urban Locality" KiisEastW1 "East" KiisSouthW1 "South" KiisCenterW1 "Center" TransitionWinnersBN "Transition Winner" FamFinanSitu "Family Financial Situation" LangQuestUkrW1 "Survey in Ukrainian" LangIntObsUkr "Language Observed by Interviewer Ukrainian"  LangPrvLfUkr "Language in Private Life Ukrainian" LangWorkUkr "Language at Work Ukrainian" LangNatvUkrBN "Native Language Ukrainian" UkrNatScaleu "Ukrainian Nationality Scale" NationUkrBN "Nation Forced Choice Ukrainian") nonumbers mtitles("Backing Rus state lang" "Backing NATO" "Expecting RF invasion" "Joining EuroMaidan") title("Table A7. Full effects of 4 Ukrainian ethnicity variables on probability (%) of...") addnote("Note: Calculated using logit model.") 

eststo clear

gr combine UKIDfiguk4idcorerustatelang_20171224.gph UKIDfiguk4idcorenato_20171224.gph UKIDfiguk4idcorerusinvade_20171224.gph UKIDfiguk4idcoremaidan_20171224.gph, col(2) iscale(.75) title("Figure 3. Full effects of 4 Ukrainian ethnicity variables on probability (%) of...", size(medsmall)) graphr(color(white)) saving(UKIDfig4idcore_20171224, replace)



******************
*VARIATION: CORE 4-IV REGRESSION REPLACING LANGUAGE OF PRIVATE LIFE WITH LANGUAGE OF WORK IN ìCOMMUNITY LANGUAGEî CATEGORY*

*IVs = LangQuestUkrW1, LangWorkUkr, LangNatvUkrBN, NationUkrBN

*DV1: RussStateLangBN

svy: logit RussStateLangBN LangQuestUkrW1 LangWorkUkr LangNatvUkrBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangQuestUkrW1 LangWorkUkr LangNatvUkrBN NationUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy chosen" 2 "Lang work" 3 "Ethnoling" 4 "Nationality",angle(45) labsize(medsmall)) recast(scatter) title({bf}Backing Russ as state language, size(medsmall) color(black) span) xtitle("") ytitle("") xscale(range(.75 4.25)) graphr(color(white)) saving(UKIDfiguk4idlangworkrustatelang_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)

*DV2: JoinNATOBN

svy: logit JoinNATOBN LangQuestUkrW1 LangWorkUkr LangNatvUkrBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangQuestUkrW1 LangWorkUkr LangNatvUkrBN NationUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy chosen" 2 "Lang work" 3 "Ethnoling" 4 "Nationality",angle(45) labsize(medsmall)) recast(scatter) title({bf}Backing NATO, size(medsmall) color(black) span) xtitle("") ytitle("") xscale(range(.75 4.25)) graphr(color(white)) saving(UKIDfiguk4idlangworknato_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)

*DV3: RussWillInvadeBN

svy: logit RussWillInvadeBN LangQuestUkrW1 LangWorkUkr LangNatvUkrBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangQuestUkrW1 LangWorkUkr LangNatvUkrBN NationUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy chosen" 2 "Lang work" 3 "Ethnoling" 4 "Nationality",angle(45) labsize(medsmall)) recast(scatter) title({bf}Expecting Russian invasion, size(medsmall) color(black) span) xtitle("") ytitle("") xscale(range(.75 4.25)) graphr(color(white)) saving(UKIDfiguk4idlangworkrusinvade_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


*DV4: EuroMaidanAllBN

svy: logit EuroMaidanAllBN LangQuestUkrW1 LangWorkUkr LangNatvUkrBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangQuestUkrW1 LangWorkUkr LangNatvUkrBN NationUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy chosen" 2 "Lang work" 3 "Ethnoling" 4 "Nationality",angle(45) labsize(medsmall)) recast(scatter) title({bf}Joining EuroMaidan, size(medsmall) color(black) span) xtitle("") ytitle("") xscale(range(.75 4.25)) graphr(color(white)) saving(UKIDfiguk4idlangworkmaidan_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)

esttab using UKIDtab4idlangwork_20171224.rtf, replace compress b(%9.2f) star(* 0.05 ** 0.01) ci wide varwidth(22) coeflabel(WomanW1 "Female" Vage_yearsu "Age" Educ6u "Education" UrbanW1 "Urban Locality" KiisEastW1 "East" KiisSouthW1 "South" KiisCenterW1 "Center" TransitionWinnersBN "Transition Winner" FamFinanSitu "Family Financial Situation" LangQuestUkrW1 "Survey in Ukrainian" LangIntObsUkr "Language Observed by Interviewer Ukrainian"  LangPrvLfUkr "Language in Private Life Ukrainian" LangWorkUkr "Language at Work Ukrainian" LangNatvUkrBN "Native Language Ukrainian" UkrNatScaleu "Ukrainian Nationality Scale" NationUkrBN "Nation Forced Choice Ukrainian") nonumbers mtitles("Backing Rus state lang" "Backing NATO" "Expecting RF invasion" "Joining EuroMaidan") title("Table A8. Full effects of 4 Ukrainian ethnicity variables on probability (%) of...") addnote("Note: Calculated using logit model.") 

eststo clear

gr combine UKIDfiguk4idlangworkrustatelang_20171224.gph UKIDfiguk4idlangworknato_20171224.gph UKIDfiguk4idlangworkrusinvade_20171224.gph UKIDfiguk4idlangworkmaidan_20171224.gph, col(2) iscale(.75) title("Figure 4. Full effects of 4 Ukrainian ethnicity variables on probability (%) of...", size(medsmall)) graphr(color(white)) saving(UKIDfig4idlangwork_20171224, replace)



******************
*VARIATION ON CORE 4-IV REGRESSION: SURVEY LANGUAGE OBSERVED*

*IVs = LangIntObsUkr, LangPrvLfUkr, LangNatvUkrBN, NationUkrBN

*DV1: RussStateLangBN

svy: logit RussStateLangBN LangIntObsUkr LangPrvLfUkr LangNatvUkrBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangIntObsUkr LangPrvLfUkr LangNatvUkrBN NationUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy observed" 2 "Lang private life" 3 "Ethnoling" 4 "Nationality",angle(45) labsize(medsmall)) recast(scatter) title({bf}Backing Russ as state language, size(medsmall) color(black) span) xtitle("") ytitle("") xscale(range(.75 4.25)) graphr(color(white)) saving(UKIDfiguk4idlangsvyobsrustatelang_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


*DV2: JoinNATOBN

svy: logit JoinNATOBN LangIntObsUkr LangPrvLfUkr LangNatvUkrBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangIntObsUkr LangPrvLfUkr LangNatvUkrBN NationUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy observed" 2 "Lang private life" 3 "Ethnoling" 4 "Nationality",angle(45) labsize(medsmall)) recast(scatter) title({bf}Backing NATO, size(medsmall) color(black) span) xtitle("") ytitle("") xscale(range(.75 4.25)) graphr(color(white)) saving(UKIDfiguk4idlangsvyobsnato_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


*DV3: RussWillInvadeBN

svy: logit RussWillInvadeBN LangIntObsUkr LangPrvLfUkr LangNatvUkrBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangIntObsUkr LangPrvLfUkr LangNatvUkrBN NationUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy observed" 2 "Lang private life" 3 "Ethnoling" 4 "Nationality",angle(45) labsize(medsmall)) recast(scatter) title({bf}Expecting Russian invasion, size(medsmall) color(black) span) xtitle("") ytitle("") xscale(range(.75 4.25)) graphr(color(white)) saving(UKIDfiguk4idlangsvyobsrusinvade_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)



*DV4: EuroMaidanAllBN

svy: logit EuroMaidanAllBN LangIntObsUkr LangPrvLfUkr LangNatvUkrBN NationUkrBN WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangIntObsUkr LangPrvLfUkr LangNatvUkrBN NationUkrBN) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy observed" 2 "Lang private life" 3 "Ethnoling" 4 "Nationality",angle(45) labsize(medsmall)) recast(scatter) title({bf}Joining EuroMaidan, size(medsmall) color(black) span) xtitle("") ytitle("") xscale(range(.75 4.25)) graphr(color(white)) saving(UKIDfiguk4idlangsvyobsmaidan_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)

esttab using UKIDtab4idlangsvyobs_20171224.rtf, replace compress b(%9.2f) star(* 0.05 ** 0.01) ci wide varwidth(22) coeflabel(WomanW1 "Female" Vage_yearsu "Age" Educ6u "Education" UrbanW1 "Urban Locality" KiisEastW1 "East" KiisSouthW1 "South" KiisCenterW1 "Center" TransitionWinnersBN "Transition Winner" FamFinanSitu "Family Financial Situation" LangQuestUkrW1 "Survey in Ukrainian" LangIntObsUkr "Language Observed by Interviewer Ukrainian"  LangPrvLfUkr "Language in Private Life Ukrainian" LangWorkUkr "Language at Work Ukrainian" LangNatvUkrBN "Native Language Ukrainian" UkrNatScaleu "Ukrainian Nationality Scale" NationUkrBN "Nation Forced Choice Ukrainian") nonumbers mtitles("Backing Rus state lang" "Backing NATO" "Expecting RF invasion" "Joining EuroMaidan") title("Table A9. Full effects of 4 Ukrainian ethnicity variables on probability (%) of...") addnote("Note: Calculated using logit model.") 

eststo clear

gr combine UKIDfiguk4idlangsvyobsrustatelang_20171224.gph UKIDfiguk4idlangsvyobsnato_20171224.gph UKIDfiguk4idlangsvyobsrusinvade_20171224.gph UKIDfiguk4idlangsvyobsmaidan_20171224.gph, col(2) iscale(.75) title("Figure 5. Full effects of 4 Ukrainian ethnicity variables on probability (%) of...", size(medsmall)) graphr(color(white)) saving(UKIDfig4idlangsvyobs_20171224, replace)


******************
*VARIATION: 4-IV REGRESSION WITH NATIONALITY SCALE *

*IVs = LangQuestUkrW1, LangPrvLfUkr, LangNatvUkrBN, UkrNatScale 

*DV1: RussStateLangBN

svy: logit RussStateLangBN LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN UkrNatScaleu WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN UkrNatScale) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy chosen" 2 "Lang private life" 3 "Ethnoling" 4 "Nationality scale",angle(45) labsize(medsmall)) recast(scatter) title({bf}Backing Russ as state language, size(medsmall) color(black) span) xtitle("") ytitle("") xscale(range(.75 4.25)) graphr(color(white)) saving(UKIDfiguk4idnscalerustatelang_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


*DV2: JoinNATOBN

svy: logit JoinNATOBN LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN UkrNatScaleu WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN UkrNatScale) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy chosen" 2 "Lang private life" 3 "Ethnoling" 4 "Nationality scale",angle(45) labsize(medsmall)) recast(scatter) title({bf}Backing NATO, size(medsmall) color(black) span) xtitle("") ytitle("") xscale(range(.75 4.25)) graphr(color(white)) saving(UKIDfiguk4idnscalenato_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


*DV3: RussWillInvadeBN

svy: logit RussWillInvadeBN LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN UkrNatScaleu WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN UkrNatScale) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy chosen" 2 "Lang private life" 3 "Ethnoling" 4 "Nationality scale",angle(45) labsize(medsmall)) recast(scatter) title({bf}Expecting Russian invasion, size(medsmall) color(black) span) xtitle("") ytitle("") xscale(range(.75 4.25)) graphr(color(white)) saving(UKIDfiguk4idnscalerusinvade_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)


*DV4: EuroMaidanAllBN

svy: logit EuroMaidanAllBN LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN UkrNatScaleu WomanW1 Vage_yearsu Educ6u UrbanW1 KiisEastW1 KiisSouthW1 KiisCenterW1 TransitionWinnersBN FamFinanSitu

margins, dydx(LangQuestUkrW1 LangPrvLfUkr LangNatvUkrBN UkrNatScale) vce(unconditional)

marginsplot, allxlabels yline(0) ylabel(-.2 "-20%" 0 "0" .2 "20%", angle(horizontal) labsize(medlarge))  xlabel (1 "Lang svy chosen" 2 "Lang private life" 3 "Ethnoling" 4 "Nationality scale",angle(45) labsize(medsmall)) recast(scatter) title({bf}Joining EuroMaidan, size(medsmall) color(black) span) xtitle("") ytitle("") xscale(range(.75 4.25)) graphr(color(white)) saving(UKIDfiguk4idnscalemaidan_20171224, replace)

eststo: margins, dydx(*) post vce(unconditional)

esttab using UKIDtab4idnscale_20171224.rtf, replace compress b(%9.2f) star(* 0.05 ** 0.01) ci wide varwidth(22) coeflabel(WomanW1 "Female" Vage_yearsu "Age" Educ6u "Education" UrbanW1 "Urban Locality" KiisEastW1 "East" KiisSouthW1 "South" KiisCenterW1 "Center" TransitionWinnersBN "Transition Winner" FamFinanSitu "Family Financial Situation" LangQuestUkrW1 "Survey in Ukrainian" LangIntObsUkr "Language Observed by Interviewer Ukrainian"  LangPrvLfUkr "Language in Private Life Ukrainian" LangWorkUkr "Language at Work Ukrainian" LangNatvUkrBN "Native Language Ukrainian" UkrNatScaleu "Ukrainian Nationality Scale" NationUkrBN "Nation Forced Choice Ukrainian") nonumbers mtitles("Backing Rus state lang" "Backing NATO" "Expecting RF invasion" "Joining EuroMaidan") title("Table A10. Full effects of 4 Ukrainian ethnicity variables on probability (%) of...") addnote("Note: Calculated using logit model.") 

eststo clear

gr combine UKIDfiguk4idnscalerustatelang_20171224.gph UKIDfiguk4idnscalenato_20171224.gph UKIDfiguk4idnscalerusinvade_20171224.gph UKIDfiguk4idnscalemaidan_20171224.gph, col(2) iscale(.75) title("Figure 6. Full effects of 4 Ukrainian ethnicity variables on probability (%) of...", size(medsmall)) graphr(color(white)) saving(UKIDfig4idnscale_20171224, replace)


******************
*Table summarizing frequencies of variables of interest.*

la var RussStateLangBN "Russian Second State Language "
la def ny 0 "No" 1 "Yes", modify 
la val RussStateLangBN ny

la var JoinNATOBN "For Joining NATO"
la def ny 0 "No" 1 "Yes", modify 
la val JoinNATOBN ny

la var RussWillInvadeBN "Believing Russia Will Invade"
la def ny 0 "No" 1 "Yes", modify 
la val RussWillInvadeBN ny

la var EuroMaidanAllBN "EM Protest Participant"
la def ny 0 "No" 1 "Yes", modify 
la val EuroMaidanAllBN 

la var UkrRusDifferentScale "Scale of How Similar Russ-UKrs Are"
la val UkrRusDifferentScale

la var NationUkrBN "Nation Forced Choice Ukrainian" 
la def ny 0 "No" 1 "Yes", modify 
la val NationUkrBN ny

la var UkrNatScale "Nationality Feels More Ukrainian"
la def UkrNatScale 1 "Not at all Ukrainian" 2 "Partly but less than half" 3 "Half" 4 "Mostly", modify
la val UkrNatScale 

la var LangQuestUkrW1 "Opted For Ukrainian Survey"
la def ny 0 "No" 1 "Yes", modify 
la val LangQuestUkrW1 ny

la var LangIntObsUkr "Language Observed by Interviewer Ukrainian"
la def ny 0 "No" 1 "Yes", modify 
la val LangIntObsUkr ny

la var LangPrvLfUkr "Language in Private Life Ukrainian"
la def ny 0 "No" 1 "Yes", modify 
la val LangPrvLfUkr ny

la var LangWorkUkr "Language at Work Ukrainian"
la def ny 0 "No" 1 "Yes", modify 
la val LangWorkUkr ny

la var LangNatvUkrBN "Native Language Ukrainian"
la def ny 0 "No" 1 "Yes", modify 
la val LangNatvUkrBN ny

la var KiisEastW1 "Resides in East"
la def ny 0 "No" 1 "Yes", modify 
la val KiisEastW1 ny

la var KiisSouthW1 "Resides in South"
la def ny 0 "No" 1 "Yes", modify 
la val KiisSouthW1 ny

la var KiisCenterW1 "Resides in Center"
la def ny 0 "No" 1 "Yes", modify 
la val KiisCenterW1 ny

la var UrbanW1 "Lives in Urban Locality"
la def ny 0 "No" 1 "Yes", modify 
la val UrbanW1 ny

la var Vage_6gr "Age"
la def Vage_6gr 1 "18-29" 2 "30-39" 3 "40-49" 4 "50-59" 5 "60-69" 6 "70+", modify 
la val Vage_6gr 


la var WomanW1 "Female"
la def ny 0 "No" 1 "Yes", modify 
la val WomanW1 ny

la var Educ6 "Education Six Levels"
la def Educ6 1 "Elementary or less" 2 "Incomplete secondary" 3 "Secondary" 4 "Specialized secondary" 5 "Incomplete higher" 6 "Higher", modify 
la val Educ6 

la var FamFinanSit "Family Financial Situation"
la def FamFinanSit 1 "Not enough money" 2 "Enough money for the most necessary things" 3 "Have enough money for daily expenses" 4 "Generally have enough money" 5 "Purchase of expensive good is not a problem" 6 "The purchase of a car is not especially difficult" 7 "At present time not difficult to travel", modify 
la val FamFinanSit

la var TransitionWinnersBN "Transition Winner"
la def ny 0 "No" 1 "Yes", modify 
la val TransitionWinnersBN ny



tabout RussStateLangBN JoinNATOBN RussWillInvadeBN EuroMaidanAllBN UkrRusDifferentScale NationUkrBN UkrNatScale LangQuestUkrW1 LangIntObsUkr LangPrvLfUkr LangWorkUkr LangNatvUkrBN  KiisEastW1 KiisSouthW1 KiisCenterW1 WomanW1 FamFinanSit Educ6 Vage_6gr UrbanW1 TransitionWinnersBN using IdentityPaperFreqTab.rtf, replace cells(col) oneway mi ptotal(none) svy percent


